Option Explicit
'ThisWorkbookҲ
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    MsgBox Me.Name & "" & Sh.Name & "wgOActive]ҥΡ^AFC"
End Sub
